لحذف مجلد المحفوظات History
References أختر من القائمة Project
Microsoft Scripting Runtime اضف مكتبة الارتباط
ثم اكتب الشيفرة التالية والتي تقوم بعملية الحذف حسب الحاجة
Dim Obj_Fs As New
FileSystemObject
Obj_Fs.DeleteFolder "c:\Windows\History",
True